% Displays APp re phase and errors
% Input Structured array SPM

% Latest date 28.6.2003

function[a]=DispSpm(SPM),

if isstruct(SPM) ~=1,
   return;
end;

for i = 1:length(SPM.spectra),
   ProcDef.TLFreq1(i) =SPM.spectra(i).freq;
end;

ProcDef.file1 = 'Unknown';
ProcDef.equations = [4 1 2;5 2 1];  % defining bi-variate eqns                  Local spec change here
ProcDef.nfrq=length(SPM.spectra);
ProcDef.neq = 2; % number of equtions defined
[tf2]=transfn(SPM,ProcDef);
ProcDef.file1 = SPM.head.site;
dispresph(tf2,ProcDef);


